home *** CD-ROM | disk | FTP | other *** search
/ CDV Software Presents (USA) / CDV Software Presents (USA).bin / data / menu.dxr / 00003_DragMeMenu.ls < prev    next >
Encoding:
Text File  |  2003-04-02  |  1.3 KB  |  67 lines
  1. property frameToGo
  2.  
  3. on mouseDown me
  4.   sprite(me.spriteNum).moveableSprite = 1
  5.   sprite(me.spriteNum).blend = 50
  6. end
  7.  
  8. on mouseUp me
  9.   sprite(me.spriteNum).moveableSprite = 0
  10.   myPosAktV = sprite(me.spriteNum).locV
  11.   sprite(me.spriteNum).locV = myPosAktV
  12.   myPosAktH = sprite(me.spriteNum).locH
  13.   sprite(me.spriteNum).locH = myPosAktH
  14.   sprite(me.spriteNum).blend = 100
  15. end
  16.  
  17. on setupGo me, param
  18.   case param of
  19.     "b1":
  20.       play movie "data/ac.dir"
  21.     "b2":
  22.       play movie "data/acaddon.dir"
  23.     "b3":
  24.       play movie "data/blitz.dir"
  25.     "b4":
  26.       play movie "data/breed.dir"
  27.     "b5":
  28.       play movie "data/cpanzers.dir"
  29.     "b6":
  30.       play movie "data/cossacks.dir"
  31.     "b7":
  32.       play movie "data/ga.dir"
  33.     "b8":
  34.       play movie "data/grom.dir"
  35.     "b9":
  36.       play movie "data/hah.dir"
  37.     "b10":
  38.       play movie "data/lula.dir"
  39.     "b11":
  40.       play movie "data/neocron.dir"
  41.     "b12":
  42.       play movie "data/nml.dir"
  43.     "b13":
  44.       play movie "data/psycho.dir"
  45.     "b14":
  46.       play movie "data/tkg.dir"
  47.     "b15":
  48.       play movie "data/vultures.dir"
  49.     "b16":
  50.       frameToGo = 10
  51.     "b17":
  52.       frameToGo = 20
  53.     "b18":
  54.       frameToGo = 30
  55.     "b19":
  56.       frameToGo = 40
  57.     otherwise:
  58.       frameToGo = "Menue"
  59.   end case
  60. end
  61.  
  62. on exitFrame me
  63.   if not voidp(frameToGo) then
  64.     go(frameToGo)
  65.   end if
  66. end
  67.